Ì € i 2
main
[mnemonic]
&(HX)HXS[hxs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L hxs
active 1 YN L &(HX)HXS[hxs]|0
description 30 FREE L &(HX)HXS[hxs]|1
last.update 10 FREE L &(HX)HXS[hxs]UPD|0
last.update.date 8 DATE L VAL=%Z.date.in.magic(@last.update)
last.update.date.time 15 FREE L VAL=%Z.date.out(@last.update.date,"",10)_"-"_@last.upd
VAL=ate.time'="-"
last.update.time 4 HHMM L VAL=%Z.time.out(@last.update)
last.update.user 10 FREE L MIS.USER &(HX)HXS[hxs]UPD|1
Ì € i 2
dft.drugs
[mnemonic, dft.drug.seq]
&(HX)HXS[hxs]D[hxss]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.drug.seq 3 PINT R hxss
dft.dosage 10 FREE L &(HX)HXS[hxs]D[hxss]|1
dft.drug 20 FREE L RXM.DRUG &(HX)HXS[hxs]D[hxss]|0
dft.order.ok 1 FREE L &(HX)HXS[hxs]D[hxss]|2
dft.order.ok.check 1 FREE L VAL=IF{@dft.order.ok @Z.check.mark.data;""}
dft.order.ok.yn 1 YN L VAL=IF{@dft.order.ok "Y";"N"}
Ì € i 2
dft.procedures
[mnemonic, dft.proc.seq]
&(HX)HXS[hxs]O[hxso]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.proc.seq 3 PINT R hxso
dft.proc 10 FREE L RXM.PROC &(HX)HXS[hxs]O[hxso]|0
dft.proc.display.text 20 FREE L &(HX)HXS[hxs]O[hxso]|1
dft.proc.ok 1 FREE L &(HX)HXS[hxs]O[hxso]|2
dft.proc.ok.check 1 FREE L VAL=IF{@dft.proc.ok @Z.check.mark.data;""}
dft.proc.ok.yn 1 YN L VAL=IF{@dft.proc.ok "Y";"N"}
dft.proc.order.period 10 FREE L RXM.ORD.PERIOD &(HX)HXS[hxs]O[hxso]|3
dft.proc.perf.loc 10 FREE L MIS.OUT.LOCN &(HX)HXS[hxs]O[hxso]|4
Ì € i 2
diagnoses
[mnemonic, diag.code]
&(HX)HXS[hxs]DX[gsk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.code 10 FREE L MIS.DIAG gsk
Index Files Subscripts/Physical Base
problem.x [diag.code,mnemonic]
&(HX)HXSP[gsk,hxs]
|
|
| | |